home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / DOS / MATH / FSULTRA1 / ULTRX_LH.ASM < prev    next >
Assembly Source File  |  1992-06-18  |  3KB  |  127 lines
  1. comment ! 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. ! 
  27. ;
  28. ; File:  ULTRX_LH.ASM (80386 Lahey F77L calling conventions)
  29. ;
  30.     DOSSEG
  31.    .MODEL HUGE
  32.  
  33. ;===== B: GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
  34. ;
  35.     public  i31bit, i15bit, i7bit,  i1bit,  uni,    duni
  36.     public  i32bit, i16bit, i8bit,  rinit,  vni,    dvni
  37.     public    swbstate, swbsize
  38.  
  39. ;===== D. MACRO DEFINITIONS ===========================================
  40. ;
  41. ; RinitProcStart should take two 32-bit arguments conx and shrx
  42. ;   and place them in eax and ebx.
  43. ;   es and ds should both point to the data segment.
  44. ;   conx must be odd (so we or with 1 just to make sure).
  45. ; FillProc
  46. ;   DS is already the data segment. ES should also be made the same.
  47.  
  48. EnterProcedure   macro
  49.   arg  arg1:dword
  50.     push bp
  51.     mov  bp,sp
  52.     mov  dx,DATA
  53.     mov  ds,dx
  54. endm
  55.  
  56. ExitProcedure    macro
  57.     pop  bp
  58.     ret
  59. endm
  60.  
  61. Enter2arg   macro
  62.     arg conx:dword, shrx:dword
  63.     EnterProcedure
  64.     mov  dx,ds
  65.     lds  si,ConX            ; load conx in eax
  66.     mov  eax,[si]
  67.     shl  eax,1
  68.     or   al,1               ;   (congx must be odd)
  69.     lds  si,ShrX            ; and shrx in ebx
  70.     mov  ebx,[si]
  71.     mov  ds,dx
  72.     mov  es,dx
  73. endm
  74.  
  75. Exit2arg     macro
  76.     ExitProcedure
  77. endm
  78.  
  79. EnterFill    macro
  80.     mov    ax,ds
  81.     mov    es,ax
  82. endm
  83.  
  84. ExitFill    macro
  85.     ret
  86. endm
  87.  
  88. DwordFn macro
  89.     les di,arg1
  90.     stosw
  91.     mov ax,dx
  92.     stosw
  93. endm
  94.  
  95. WordFn  macro
  96.     les di,arg1
  97.     stosw
  98. endm
  99.  
  100. ByteFn  macro
  101.     les di,arg1
  102.     cbw            ; convert bytes to integer*2
  103.     stosw
  104. endm
  105.  
  106. RealFn  macro
  107.     lds  bx,arg1
  108.     fstp dword ptr [bx]
  109. endm
  110.  
  111. DoubleFn macro
  112.     lds  bx,arg1
  113.     fstp qword ptr [bx]
  114. endm
  115.  
  116. DGROUP GROUP DATA
  117. DATA SEGMENT WORD PUBLIC 'DATA'
  118. ASSUME DS:DGROUP
  119.   INCLUDE ULTRADAT.INC
  120. DATA ENDS
  121.  
  122. .STACK 10h
  123.  
  124. .CODE
  125.   INCLUDE ULTRxCOD.INC
  126. END
  127.